home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / IRC Chat / polaris2001v304.EXE / Addons / fileserver.ini < prev    next >
Encoding:
INI File  |  2001-04-06  |  27.0 KB  |  553 lines
  1. [Addon]
  2. Script=Advanced FileServer 
  3. Version=v2001
  4. Author=onlinr
  5. Desc=An addon to give you increased control over your FileServer.  All fserve features are now in one dialog.
  6. Date=February 26, 2001
  7.  
  8. [script]
  9. n0=menu Channel {
  10. n1=  -
  11. n2=  File Server [[ $+ $iif( $timer(Fserve) != $null , On, Off ) $+ ]] : {    
  12. n3=    dialog -md dFserver fileServer 
  13. n4=    if ( $send(0) != 0 || $get(0) != 0  ) { fserverAlias | .timerFS 0 1 fserverAlias  } 
  14. n5=  }  
  15. n6=}
  16. n7=menu Menubar {
  17. n8=  -
  18. n9=  File Server: {    
  19. n10=    dialog -md dFserver fileServer 
  20. n11=    if ( $send(0) != 0 || $get(0) != 0  ) { fserverAlias | .timerFS 0 1 fserverAlias  } 
  21. n12=  }  
  22. n13=}
  23. n14=alias dOn { if ($dialog(dFserver) != $null ) { return $true } | else { return $false } }
  24. n15=
  25. n16=;**************************
  26. n17=;       Queue aliases
  27. n18=;**************************
  28. n19=alias queue.swap.up { 
  29. n20=
  30. n21=  set %queue.temp %Queue. [ $+ [ $calc($1 - 1) ] ] 
  31. n22=  set %Queue. [ $+ [ $calc($1 - 1) ] ] %Queue. [ $+ [ $1 ] ] 
  32. n23=  set %Queue. [ $+ [ $1 ] ] %queue.temp
  33. n24=  unset %queue.temp
  34. n25=  qmuMine
  35. n26=  did -fc dFserver 201 $calc($1 - 1)
  36. n27=  did -ra dFserver 204 $gettok(%Queue. [ $+ [ $remove($gettok($did(dFserver,201,$did(dFserver,201).sel),2,32),$chr(35)) ] ] ,1,32)
  37. n28=  did -ra dFserver 206 $gettok(%Queue. [ $+ [ $remove($gettok($did(dFserver,201,$did(dFserver,201).sel),2,32),$chr(35)) ] ] ,2,32)
  38. n29=  did -ra dFserver 209 $nopath($gettok(%Queue. [ $+ [ $remove($gettok($did(dFserver,201,$did(dFserver,201).sel),2,32),$chr(35)) ] ] ,3-,32))
  39. n30=}
  40. n31=alias queue.swap.down { 
  41. n32=
  42. n33=  set %queue.temp %Queue. [ $+ [ $calc($1 + 1) ] ] 
  43. n34=  set %Queue. [ $+ [ $calc($1 + 1) ] ] %Queue. [ $+ [ $1 ] ] 
  44. n35=  set %Queue. [ $+ [ $1 ] ] %queue.temp
  45. n36=  unset %queue.temp
  46. n37=  qmuMine
  47. n38=  did -fc dFserver 201 $calc($1 + 1)
  48. n39=  did -ra dFserver 204 $gettok(%Queue. [ $+ [ $remove($gettok($did(dFserver,201,$did(dFserver,201).sel),2,32),$chr(35)) ] ] ,1,32)
  49. n40=  did -ra dFserver 206 $gettok(%Queue. [ $+ [ $remove($gettok($did(dFserver,201,$did(dFserver,201).sel),2,32),$chr(35)) ] ] ,2,32)
  50. n41=  did -ra dFserver 209 $nopath($gettok(%Queue. [ $+ [ $remove($gettok($did(dFserver,201,$did(dFserver,201).sel),2,32),$chr(35)) ] ] ,3-,32))
  51. n42=}
  52. n43=
  53. n44=
  54. n45=alias queue.Myadd { queue.exists $1- | if ($result isnum) { return $result } | set -u0 %~queue-ac 0 | :start | inc %~queue-ac 1 | if (%Queue. [ $+ [ %~queue-ac ] ] == $null) { set %Queue. [ $+ [ %~queue-ac ] ] $1- | unset %~queue-ac | qmuMine } | else { goto start } }
  55. n46=alias queue.Mydel { if ($isnum($1) == $true) { set -u0 %~queue-dc $calc($1 - 1) | :start | inc %~queue-dc 1 | set %Queue. [ $+ [ %~queue-dc ] ] | if (%Queue. [ $+ [ $calc(%~queue-dc + 1) ] ] == $null) { unset %~queue-dc | qmuMine } | else { set %Queue. [ $+ [ %~queue-dc ] ] %Queue. [ $+ [ $calc(%~queue-dc + 1) ] ] | goto start } } }
  56. n47=alias qmuMine  if ($dialog(dFserver) != $null) { did -r dFserver 201,204,206,209 | set %~qmu 0 | :start | inc %~qmu 1 | if (%Queue. [ $+ [ %~qmu ] ] == $null) { unset %~qmu  } | else { did -a dFserver 201 Queue $chr(35) $+ %~qmu | goto start } } 
  57. n48=alias qnu { if ($2 != $null) { set %~qnu 0 | :start | inc %~qnu 1 | if ($queue(%~qnu) == $null) { unset %~qnu | qmuMine } | else { if ($gettok($queue(%~qnu),2,32) == $1) { queue.rep %~qnu $gettok($queue(%~qnu),1,32) $2 $gettok($queue(%~qnu),3-,32) } | goto start } } }
  58. n49=;*******************************$sv(Queues, [ [ $queue(0) ] $+ ]
  59. n50=;   check for transfers
  60. n51=;*****************************
  61. n52=alias checkForTransfers {  
  62. n53=  if ( $send(0) != 0 || $get(0) != 0 ) { .timerCheckForTransfers off | .timerFS 0 1 fserverAlias }
  63. n54=  if ( $dialog(dFserver) == $null ) { .timerCheckForTransfers off } | else { did -o dFserver 31 1 $fserv(0) +$ / +$ $vnum($r.set(Fserve,Max.Serve),4) } 
  64. n55=  if ( $gettok($r.set(Fserve,Channels),1,44) != All ) {
  65. n56=    did -ra dFserver 51 $gettok($r.set(Fserve,Channels),1,44)  
  66. n57=    did -ra dFserver 52 $nick($gettok($r.set(Fserve,Channels),1,44),0) 
  67. n58=  }
  68. n59=  else {
  69. n60=    did -ra dFserver 51 All Chans
  70. n61=    did -ra dFserver 52 n/a
  71. n62=  }
  72. n63=}
  73. n64=;**********************
  74. n65=;   Clear window
  75. n66=;*********************
  76. n67=alias clearFserveWindow {
  77. n68=  .timerFS off
  78. n69=  ; Set counter to number of sends
  79. n70=  ;set %countSends  $send(0) 
  80. n71=  ;if ( $send(0) != 0 ) {  
  81. n72=  ; :loop          
  82. n73=  did -r dFserver 15 
  83. n74=  did -r dFserver 18 
  84. n75=  did -r dFserver 19 
  85. n76=  did -r dFserver 20 
  86. n77=  did -r dFserver 21  
  87. n78=  ;did -r dFserver 23
  88. n79=  did -r dFserver 26
  89. n80=  did -r dFserver 27 
  90. n81=  did -r dFserver 28  
  91. n82=  did -r dFserver 29
  92. n83=  did -r dFserver 30
  93. n84=  did -r dFserver 17
  94. n85=
  95. n86=  ; Decrease  counter and then loop if still above zero
  96. n87=  ;dec %countSends
  97. n88=  ; if (%countSends > 0) goto loop
  98. n89=  ;}
  99. n90=  if ( $send(0) != 0 || $get(0) != 0 ) { .timerFS 0 1 fserverAlias }  
  100. n91=  if ( $send(0) == 0 && $get(0) == 0 && $timers(CheckForTransfers) == $null )  { .timerCheckForTransfers 0 1 checkForTransfers }
  101. n92=}
  102. n93=;*********************************************
  103. n94=; Updates all sends/gets and their properties (on a 1 sec timer)
  104. n95=;**********************************************
  105. n96=alias fserverAlias {
  106. n97=  if ( $dialog(0) == 0 ) { .timerFS off }
  107. n98=  if ( $send(0) == 0 && $get(0) == 0  ) { .timerFS off | clearFserveWindow | .timerCheckForTransfers 0 1 checkForTransfers }
  108. n99=  ; Set counter to number of sends
  109. n100=  set %countSends  $send(0) 
  110. n101=  if ( $send(0) != 0 ) {  
  111. n102=    if ( %countSendsHold != $send(0) || %countGetsHold != $get(0) ) {       
  112. n103=      set %countSendsHold $send(0) 
  113. n104=      set %countGetsHold $get(0) 
  114. n105=      clearFserveWindow
  115. n106=    }
  116. n107=    :loop   
  117. n108=    did -o dFserver 15 %countSends %countSends
  118. n109=    did -o dFserver 18 %countSends $send( %countSends )
  119. n110=    did -o dFserver 19 %countSends $send( %countSends ).file -->send
  120. n111=    did -o dFserver 20 %countSends $send( %countSends ).cps
  121. n112=    dde mIRC DDE Command $send( %countSends )        $send( %countSends ).file -->send      $send( %countSends ).cps      $send( %countSends ).pc
  122. n113=    did -o dFserver 21 %countSends $send( %countSends ).pc
  123. n114=    ;did -o dFserver 23 5 $send( %countSends ).status 
  124. n115=
  125. n116=    set %countSendsTotal $calc( %countSendsTotal + $send(%countSends).cps )
  126. n117=    ; Decrease  counter and then loop if still above zero
  127. n118=    dec %countSends
  128. n119=    if (%countSends > 0) goto loop
  129. n120=  }
  130. n121=  ; Set counter to number of gets
  131. n122=  set %countGets $get(0)
  132. n123=  if ( $get(0) != 0  ) {
  133. n124=    :loops          
  134. n125=    did -o dFserver 26 %countGets %countGets
  135. n126=    did -o dFserver 27 %countGets $get( %countGets ) 
  136. n127=    did -o dFserver 28 %countGets $get( %countGets ).file <--get
  137. n128=    did -o dFserver 29 %countGets $get( %countGets ).cps
  138. n129=    did -o dFserver 30 %countGets $get( %countGets ).pc
  139. n130=    ;did -o dFserver 23 %countGets $get( %countGets ).status    
  140. n131=    ; .ip, .status, .file, .size, .rcvd, .cps, .pc
  141. n132=    set %countGetsTotal $calc( %countGetsTotal + $get(%countGets ).cps )
  142. n133=    ; Decrease  counter and then loop if still above zero
  143. n134=    dec %countGets
  144. n135=    if (%countGets > 0) goto loops
  145. n136=  } 
  146. n137=  ;set %fserveSlots 4
  147. n138=  if ( $gettok($r.set(Fserve,Channels),1,44) != All ) {
  148. n139=    did -ra dFserver 51 $gettok($r.set(Fserve,Channels),1,44)  
  149. n140=    did -ra dFserver 52 $nick($gettok($r.set(Fserve,Channels),1,44),0) 
  150. n141=  }
  151. n142=  else {
  152. n143=    did -ra dFserver 51 All Chans
  153. n144=    did -ra dFserver 52 n/a
  154. n145=  }
  155. n146=  did -ra dFserver 50 $queue(0) $+ / $+ $r.set(Fserve, Max.Queues.Total)  
  156. n147=  did -ra dFserver 31  $fserv(0) $+ / $+ $vnum($r.set(Fserve,Max.Serve),4)
  157. n148=  ;did -o  
  158. n149=  did -ra dFserver 17  $calc(%countGetsTotal + %countSendsTotal)
  159. n150=  unset %countGetsTotal %countSendsTotal
  160. n151=}
  161. n152=;***************************************
  162. n153=;  fileServer Dialog (the main window and all it's tabs)
  163. n154=;***************************************
  164. n155=dialog fileServer {
  165. n156=  title "Advanced FileServer"
  166. n157=  size -1 -1 300 220
  167. n158=  option dbu
  168. n159=
  169. n160=  tab "Main", 1, 5 3 294 215
  170. n161=  tab "Setup", 2
  171. n162=  tab "Queues", 3
  172. n163=  tab "Bans", 4
  173. n164=
  174. n165=  ;*******************
  175. n166=  ;Main (tab1) uses id 1,10-48
  176. n167=  ;*******************
  177. n168=  button  "Hide", 10, 270 195 25 10, ok, tab 1, tab2              ;close button
  178. n169=  button  "Refresh", 45, 270 183 25 10,  tab 1             ;refresh button if things get screwed up
  179. n170=  text       "Sends", 25, 122 20 15 10, tab 1                ;label: "Sends" 
  180. n171=  button    "#", 11, 10 30 20 10, default tab 1             ;# user number
  181. n172=  button    "Nick", 12, 30 30 40 10, default tab 1          ;user nick
  182. n173=  button    "File", 13, 70 30 120 10, default tab 1         ;downloding file
  183. n174=  button    "CPS", 14, 190 30 35 10, default tab 1         ;cps 
  184. n175=  button    "%",    22, 225 30 25 10, default tab 1         ;% button label 
  185. n176=
  186. n177=  list        15, 10 40 20 50,  tab 1                              ;# list box for sends
  187. n178=  list        18, 30 40 40 50, tab 1                               ;nick list box for sends
  188. n179=  list        19, 70 40 120 50, tab 1                              ;file list box for sends
  189. n180=  list        20, 190 40 35 50, tab 1                              ;cps list box for sends
  190. n181=  list       21, 225 40 25 50, tab 1                               ;percent list box for sends 
  191. n182=
  192. n183=  text     "Gets", 24, 124 83 15 7, tab 1                     ; label: "Gets" 
  193. n184=  list        26, 10 90 20 50, tab 1                               ; #list box for Gets 
  194. n185=  list        27, 30 90 40 50, tab 1                               ; nick list box for Gets
  195. n186=  list        28, 70 90 120 50, tab 1                              ;file list box for Gets 
  196. n187=  list        29, 190 90 35 50, tab 1                              ; cps list box for Gets
  197. n188=  list        30, 225 90 25 50, tab 1                              : percent list box for Gets  
  198. n189=
  199. n190=  ;text       "No transfers", 23,120 195 15 10, tab 1         ;displays the status (active or inavtive)
  200. n191=  text       "Bandwidth in use", 16, 65 187 50 7, tab 1    ;label: Bandwidth in use
  201. n192=  list        17, 65 195 40 15, tab 1                               ;displays current bandwidth in use  
  202. n193=  text       "Fserve slots in use" 32, 10 187 50 7, tab 1   ;label "fserve slots in use"
  203. n194=  list        31, 10 195 30 15, tab 1                                ;display the number of fserve slots in use
  204. n195=  text       "Min Cps", 47, 158 187 50 7, tab1 
  205. n196=  edit        "",46, 155 195 30 10, tab 1                           ;displays min cps
  206. n197=  check    "", 48, 145 195 10 10, tab 1                           ;enables/disables min cps
  207. n198=  text      "Queues", 49, 195 187 30 7, tab 1                  ;label: Queues
  208. n199=  list         50, 195 195 20 15, tab1                               ;listbox -- queue
  209. n200=  text      "Channel Stats", 51, 225 187 40 7, tab 1           ;label Channel
  210. n201=  list       52, 225 195 20 15, tab 1                                ;list box number of users on first channel in list
  211. n202=
  212. n203=  box       "Status", 33,  251 38 45 62,  tab 1                  ;advertise box
  213. n204=  radio     "Start Verbose", 34, 253 47 41 10, push,  tab 1  ;start 
  214. n205=  radio     "Start Silently", 36, 253 57 40 10, push, tab 1    ;silent
  215. n206=  radio     "Stop/Nokick", 35, 253 67 40 10, push, tab 1      ;radio stop/no kick 
  216. n207=  radio     "Stop/Kick", 38, 253  77 40 10, push,  tab 1       ;radio stop kick all
  217. n208=  button     "Say Add", 37, 253 87 40 10,  tab 1                ;say add
  218. n209=
  219. n210=  button  "Send Next Queue", 39, 251 103 45 10, tab 1    ;button send next queue
  220. n211=  ;button  "kick a user", 41, 251 100 45 10, tab 1            ;button to kick a user
  221. n212=
  222. n213=  text      "Status Window", 44, 120 133 40 8, tab 1        ;label "status window"
  223. n214=  list        43, 10 141 240 50, tab 1                              ;status window
  224. n215=  ;********************
  225. n216=  ;Setup (tab2) "Setup" uses id ? through ?
  226. n217=  ;********************
  227. n218=  button "Polaris Setup", 74, 125 20 50 15, tab 2
  228. n219=  box     "", 73, 10 36 285 160, tab2
  229. n220=  text    "1. Pressing the above 'Polaris Setup' button will minimize The Advanced FileServer to the Taskbar.", 72, 15 45 270 10, tab 2 
  230. n221=  text    "2. This Addon Only Works With Polaris IRC 2001 v1.01+ Or Higher ", 71, 15 55 270 20, tab 2 
  231. n222=  text    "3. Features Added:",70, 15 70 270 10, tab2   
  232. n223=  text    "--One common location for all FileServer options", 69, 25 78 270 10, tab 2 
  233. n224=  text    "--A dynamic send/get monitor (shows current cps and percentage of file complete)", 68, 25 86 270 10, tab 2
  234. n225=  text    "--The ability to send the next queue by clicking a button", 67, 25 94 270 10, tab 2
  235. n226=  text    "--The ability to stop the fserve and kick all users with a click of a button(also deletes queues, I may change that)", 66, 25 102 270 10, tab 2 
  236. n227=  text    "--The ability to add and remove people from a ban list on the 'Bans' tab**", 65, 25 110 270 10, tab 2
  237. n228=  text    "--The ability to edit, enable or disable the min cps on the main tab.", 61, 25 118 270 10, tab2
  238. n229=  text    "I will be making more changes as I have time--if you have suggestions you can reach me at irc.dal.net #wrz", 64, 15 125 270 20, tab 2
  239. n230=  text    "Regards onlinr", 63, 40 145 50 20, tab2
  240. n231=  text    "** To make the 'Ban' feature funtional you have to replace the 'Polaris\system\remotes\text.ini' file with the one I supplied in the zip, while polaris is not running.", 62, 15 155 270 20, tab 2
  241. n232=
  242. n233=  ;********************
  243. n234=  ; Queues (tab3) "Queues"  uses id ? through ?
  244. n235=  ;********************
  245. n236=
  246. n237=  text "Queue:", 200, 10 25 75 13, tab 3
  247. n238=  list 201, 10 35 80 88, tab 3
  248. n239=  button "Rem", 202, 10 118 80 22, tab 3
  249. n240=  text "System:" 203, 130 46 55 13, tab 3
  250. n241=  edit "", 204, 160 41 130 15, autohs, tab 3
  251. n242=  text "Nickname:" 205, 130 71 55 13, tab 3
  252. n243=  edit "", 206, 160 66 130 15, autohs, tab 3
  253. n244=  text "Filename:" 207, 130 96 55 13, tab 3
  254. n245=  edit "",209, 160 91 130 15, autohs, tab 3
  255. n246=  ;button "Done", 210, 195 99 80 25,  tab 3
  256. n247=  box "Change Order" ,197, 91 35 32 60 , tab 3 
  257. n248=  button "up" 199, 98 55 17 17,   tab 3 
  258. n249=  button "down" 198, 98 73 17 17,  tab 3 
  259. n250=  button "Send Selected Queue", 196, 10 140 80 22, tab 3
  260. n251=
  261. n252=
  262. n253=  ;icon 199, 92 55 17 17, UpArrowUp.ico ,  tab 3 
  263. n254=  ;icon 198, 92 73 17 17, DownArrowUp.ico , tab 3  
  264. n255=
  265. n256=  ;********************
  266. n257=  ;Bans (tab4) "Setup" uses id ? through ?
  267. n258=  ;********************
  268. n259=
  269. n260=  text   "Ban List",300, 20 47 60 10,   tab 4
  270. n261=  combo    301, 20 55 60 100, tab 4
  271. n262=  button "Add", 302, 85 80 30 15, tab 4
  272. n263=  button "Rem", 303, 85 100 30 15, tab 4  
  273. n264=  ;button "Apply", 304, 270 195 25 10, tab 4
  274. n265=}
  275. n266=;*******************
  276. n267=;         Remotes
  277. n268=;******************
  278. n269=;************************
  279. n270=;catch banned people who try to change their nicks to get on fserve
  280. n271=on ^*:nick:{
  281. n272=  if ( $istok($r.set(Fserve,Banlist),$nick, 44) == $true ) { 
  282. n273=    w.set Fserve Banlist $reptok($r.set(Fserve,Banlist), $nick, $newnick, 44)
  283. n274=    if ( $dialog(dFserver) != $null ) {
  284. n275=      did -i dFserver 43 1 $nick is banned and changed his nick to $newnick and is now banned as $newnick
  285. n276=      did -r dFserver 301 | dla dFserver 301 $r.set(Fserve,Banlist)
  286. n277=    }    
  287. n278=  }   
  288. n279=}
  289. n280=;makes changes to my dialog when min.cps or que.total changes are made with polaris dialog
  290. n281=;************************
  291. n282=;30 is the ID of the check box that enables/disables min.cps on the polaris gereral dialog
  292. n283=on *:dialog:General:*:*:{
  293. n284=  if ($devent == sclick) {
  294. n285=    if ( $dialog(dFserver) != $null ) {
  295. n286=      if ( $did == 30 ) {
  296. n287=        if ($did($dname,30).state == 1) { did -ra dFserver 46 $r.set(Min.Cps, Rate) | did -c dFserver 48 } | else { did -ra dFserver 46 off | did -u dFserver 48 }
  297. n288=      }    
  298. n289=    }
  299. n290=  }
  300. n291=  if ($devent == edit ) {
  301. n292=    if ( $did == 32 ) { did -ra dFserver 46 $did($dname, 32).text }
  302. n293=
  303. n294=  }
  304. n295=}
  305. n296=;24 is the edit ID for que.Max.total for the polaris fserve dialog
  306. n297=on *:dialog:Fserve:*:*:{
  307. n298=  if ( $dialog(dFserver) != $null ) {  
  308. n299=    if ($devent == edit ) {
  309. n300=      if ($did == 24) { did -ra dFserver 50 $did(dFserver, 201).lines $+ / $+ $did($dname, 24).text }
  310. n301=    }
  311. n302=  }
  312. n303=}
  313. n304=
  314. n305=;****************
  315. n306=;      My dialog remotes
  316. n307=;****************
  317. n308=on *:dialog:dFserver:*:*:{
  318. n309=  if ( $devent == dclick ) {
  319. n310=    if ( $did == 15 ) {
  320. n311=      set %kickedNick $send($did($dname,15).sel)
  321. n312=      close -s %kickedNick       
  322. n313=      did -i $dname 43 1 %kickedNick was kicked from the server
  323. n314=      unset %kickedNick
  324. n315=    }
  325. n316=  }
  326. n317=  ;*********************
  327. n318=  ;        SCLICK
  328. n319=  ;*********************
  329. n320=
  330. n321=  if ( $devent == sclick ) {
  331. n322=    if ($did == 196 ) {
  332. n323=      if ( $did(201).sel != $null ) {
  333. n324=        dcc send $gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] , 2 , 32 ) " $+ $gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] , 3- , 32 ) $+ "
  334. n325=
  335. n326=        queue.Mydel $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35))
  336. n327=      }
  337. n328=    }
  338. n329=    if ($did == 198 ) {      
  339. n330=      ;did -g $dname 198 DownArrowDown.ico   
  340. n331=      ;did -g $dname 198 DownArrowUp.ico
  341. n332=      if ( $did(201).sel < $queue(0) ) { queue.swap.down $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35))  }
  342. n333=    }
  343. n334=    if ($did == 199 ) { 
  344. n335=      ;did -g $dname 199 UpArrowDown.ico   
  345. n336=      ;did -g $dname 199 UpArrowUp.ico
  346. n337=      if ( $did(201).sel > 1 ) { queue.swap.up $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) }
  347. n338=    }
  348. n339=
  349. n340=    if ($did == 48 ) {
  350. n341=      if ($did($dname,48).state == 1) { 
  351. n342=        w.set Min.Cps Status On
  352. n343=        did -ra dFserver 46 $r.set(Min.Cps, Rate)  
  353. n344=      } 
  354. n345=      else {
  355. n346=        w.set Min.Cps Status Off 
  356. n347=        did -ra dFserver 46 off  
  357. n348=      }
  358. n349=    }
  359. n350=    ;polaris fserve dialog open button on setup tab
  360. n351=    if ($did == 74 ) { dopen Fserve Fserve }
  361. n352=    ;Ban tab
  362. n353=    if ($did == 302) && ($did($dname,301).sel == $null) && ($did($dname,301).text != $null) { 
  363. n354=      did -a $dname 301 $did($dname,301).text 
  364. n355=      did -i $dname 43 1 $did($dname,301).text was added to the ban list  
  365. n356=      did -c $dname 301 $did($dname,301).lines 
  366. n357=      if  ($did($dname,301).lines == 0) { w.set Fserve BanList Empty } | else { dls $dname 301 w.set Fserve Banlist }
  367. n358=    }
  368. n359=    if ($did == 303) && ($did($dname,301).sel isnum) { 
  369. n360=      did -i $dname 43 1 $did($dname,301).text was removed from the ban list 
  370. n361=      did -d $dname 301 $did($dname,301).sel 
  371. n362=      if  ($did($dname,301).lines == 0) { w.set Fserve BanList Empty } | else { dls $dname 301 w.set Fserve Banlist }  
  372. n363=    }
  373. n364=
  374. n365=    ;  ***********************************************************************************
  375. n366=    if ( $did == 3 ) { 
  376. n367=      qmuMine  
  377. n368=      did -fc $dname 201 1
  378. n369=      did -ra $dname 204 $gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] ,1,32)
  379. n370=      did -ra $dname 206 $gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] ,2,32)
  380. n371=      did -ra $dname 209 $nopath($gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] ,3-,32))
  381. n372=    }
  382. n373=    if ( $did == 10) {
  383. n374=      .timerFS off
  384. n375=      .timerCheckForTransfers off
  385. n376=      unset %countSendsHold %countGetsHold
  386. n377=    }
  387. n378=    if ($did == 45 ) { 
  388. n379=      clearFserveWindow
  389. n380=      did -r $dname 43
  390. n381=      if ( $r.set(Min.Cps,Status) == On ) { 
  391. n382=        did -ra $dname 46 $r.set(Min.Cps,Rate) 
  392. n383=      } 
  393. n384=      else { 
  394. n385=        did -o $dname 46 $r.set(Min.Cps,Status) 
  395. n386=      }      
  396. n387=    } 
  397. n388=    if ($did == 39  ) { 
  398. n389=      if ( %Queue.1 != $null ) {
  399. n390=        dcc send $gettok(%Queue.1,2,32) " $+ $gettok(%Queue.1,3-,32) $+ "
  400. n391=        queue.Mydel 1
  401. n392=      }
  402. n393=      ;if ( $send(0) < $r.set(Fserve,Max.Sends.Total)) {
  403. n394=      ;  .timer 1 0 queue.send | .timerquesendTemp 1 2 did -ra $dname 50 $queue(0) $+ / $+ $r.set(Fserve, Max.Queues.Total)
  404. n395=      ;} 
  405. n396=      ;else {
  406. n397=      ; did -i $dname 43 1  CANNOT SEND NEXT QUEUE, MAX  SENDS HAS BEEN REACHED!. Change Max sends first.
  407. n398=      ;}
  408. n399=    }
  409. n400=    if ( $did == 34 ) { 
  410. n401=      advertise start fserve      
  411. n402=      did -i $dname 43 1  Polaris has been started with an ad delay of $r.set(Fserve,Ad.delay) minutes to $r.set(Fserve, Channels) at $time
  412. n403=      did -eu $dname 35
  413. n404=      did -eu $dname 38      
  414. n405=      did -bu $dname 36
  415. n406=      did -b $dname 34
  416. n407=      did -e $dname 37
  417. n408=    } 
  418. n409=    if ( $did == 35 ) { 
  419. n410=      advertise stop fserve      
  420. n411=      did -eu $dname 34
  421. n412=      did -eu $dname 36 
  422. n413=      did -i $dname 43 1 Polaris has been stopped at $time 
  423. n414=      did -b $dname 35
  424. n415=      did -b $dname 38
  425. n416=      did -b $dname 37
  426. n417=    }  
  427. n418=    if ( $did == 36 ) {      
  428. n419=      did -eu $dname 35
  429. n420=      did -eu $dname 38
  430. n421=      did -eu $dname 34     
  431. n422=      advertise silent fserve 
  432. n423=      did -i $dname 43 1 Polaris has been started silently with no ad, people can't access with triggers, queues will send at $time
  433. n424=      did -b $dname 36 
  434. n425=      did -e $dname 37
  435. n426=    }
  436. n427=    if ($did == 38 ) {
  437. n428=      advertise stop fserve 
  438. n429=      close -sf     
  439. n430=      did -eu $dname 34
  440. n431=      did -eu $dname 36 
  441. n432=      did -i $dname 43 1 Polaris has been stopped, users were kicked, and queues deleted at $time
  442. n433=      did -b $dname 35
  443. n434=      did -b $dname 38
  444. n435=      did -b $dname 37
  445. n436=    }
  446. n437=    if ($did == 37 ) {
  447. n438=      fserve.ad
  448. n439=      did -i $dname 43 1 Polaris just advertized to the participating channels at $time
  449. n440=    }     
  450. n441=    if ($did == 201) {
  451. n442=      did -ra $dname 204 $gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] ,1,32)
  452. n443=      did -ra $dname 206 $gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] ,2,32)
  453. n444=      did -ra $dname 209 $nopath($gettok(%Queue. [ $+ [ $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) ] ] ,3-,32))
  454. n445=    }
  455. n446=    ;this says queue.Mydel 4 for example if you rem the fourth queue
  456. n447=    ;all this means the queue number -- > $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35))
  457. n448=    if ($did == 202) { queue.Mydel $remove($gettok($did($dname,201,$did($dname,201).sel),2,32),$chr(35)) }    
  458. n449=  }   
  459. n450=  ;********************************
  460. n451=  ;          INITIALIZE DIALOG
  461. n452=  ;********************************   
  462. n453=  if ( $devent == edit ) {
  463. n454=    if ( $did == 46) {
  464. n455=      w.set Min.Cps Rate $did($dname, 46).text
  465. n456=    }
  466. n457=  }
  467. n458=
  468. n459=  if ( $devent == init ) {   
  469. n460=    if ( $did == 0 ) {
  470. n461=      if ( $gettok($r.set(Fserve,Channels),1,44) != All ) {
  471. n462=        did -ra dFserver 51 $gettok($r.set(Fserve,Channels),1,44)  
  472. n463=        did -ra dFserver 52 $nick($gettok($r.set(Fserve,Channels),1,44),0) 
  473. n464=      }
  474. n465=      else {
  475. n466=        did -ra dFserver 51 All Chans
  476. n467=        did -ra dFserver 52 n/a
  477. n468=      } 
  478. n469=      set %countSendsHold $send(0) 
  479. n470=      set %countGetsHold $get(0) 
  480. n471=      ;timerCheckForTransfers 0 1 checkForTransfers
  481. n472=      fserverAlias 
  482. n473=
  483. n474=      ;show queues on main tab
  484. n475=      did -ra dFserver 50 $queue(0) $+ / $+ $r.set(Fserve, Max.Queues.Total)   
  485. n476=      if ( $r.set(Min.Cps, Status) == On ) { 
  486. n477=        did -a $dname 46 $r.set(Min.Cps,Rate)  
  487. n478=        did -ec $dname 48 
  488. n479=      } 
  489. n480=      else { 
  490. n481=        did -a $dname 46 $r.set(Min.Cps,Status)  
  491. n482=        did -eu $dname 48
  492. n483=      } 
  493. n484=      if (($r.set(Fserve,Banlist) == Empty) || ($r.set(Fserve,Banlist) == $null)) { } | else { dla $dname 301 $r.set(Fserve,Banlist) }
  494. n485=      did -o dFserver 31 1 $fserv(0) +$ / +$ $vnum($r.set(Fserve,Max.Serve),4)
  495. n486=      if ($r.set(Fserve,Status) == On   ) {
  496. n487=        if ( $timer(Fserve) != $null ) {           
  497. n488=          did -a dFserver 43 Polaris is on with an ad delay of  $r.set(Fserve,Ad.Delay) minutes to $r.set(Fserve, Channels) 
  498. n489=          did -c $dname 34 
  499. n490=          did -b $dname 34
  500. n491=          did -b $dname 36
  501. n492=          did -eu $dname 35
  502. n493=          did -eu $dname 38
  503. n494=        }
  504. n495=        else {  
  505. n496=          did -c $dname 36
  506. n497=          did -b $dname 36
  507. n498=          did -eu $dname 35
  508. n499=          did -eu $dname 38
  509. n500=          did -eu $dname 34 
  510. n501=          did -a dFserver 43 Polaris is silently on with no ad, people can't access the fserve with triggers, queues will send
  511. n502=        }
  512. n503=      }
  513. n504=      if ($r.set(Fserve,Status) == Off ) { 
  514. n505=        did -cb $dname 35
  515. n506=        did -cb $dname 38
  516. n507=        did -b $dname 37        
  517. n508=        did -eu $dname 34
  518. n509=        did -eu $dname 36  
  519. n510=        did -i $dname 43 1 Polaris is not started 
  520. n511=      }
  521. n512=      ;*****************
  522. n513=      ;      Initializes que tab
  523. n514=      ;*****************     
  524. n515=      qmuMine 
  525. n516=      did -m $dname 204
  526. n517=      did -m $dname 206
  527. n518=      did -m $dname 209
  528. n519=
  529. n520=      did -a $dname 43  There are currently $send(0) $+ / $+ $r.set(Fserve, Max.Sends.Total ) send/s and $get(0) get/s in progress
  530. n521=    }
  531. n522=  }
  532. n523=}
  533. n524=on 1:FILESENT:*: {  if ($dOn == $true ) { did -i dFserver 43 1 SUCCESSFULL SEND of $nopath( $filename ) to $nick at $time | clearFserveWindow  } }
  534. n525=on 1:FILERCVD:*: {   if ($dOn == $true ) { did -i dFserver 43 1 SUCCESSFULL GET of $nopath( $filename ) from $nick at $time | clearFserveWindow } }
  535. n526=on 1:SENDFAIL:*: {  if ($dOn == $true ) { did -i dFserver 43 1 SEND of $nopath( $filename ) to $nick was UNSUCCESSFULL at $time | clearFserveWindow } }
  536. n527=on 1:GETFAIL:*: {  if ($dOn == $true ) { did -i dFserver 43 1 GET of $nopath( $filename ) from $nick was UNSUCCESSFULL at $time | clearFserveWindow } }
  537. n528=;on 1:CLOSE:!: this triggers when an fserve window is closed not the send window
  538. n529=;on 1:OPEN:!:
  539. n530=;on load line 87
  540. n531=dialog test2 {
  541. n532=  title "test" 
  542. n533=  size -1 -1 100 100
  543. n534=  option dbu
  544. n535=
  545. n536=  tab "Main", 1, 5 3 95 95
  546. n537=  tab "Setup", 2
  547. n538=
  548. n539=  Button "ok", 3, 80 80 18 18 , ok  tab 1
  549. n540=  Button "close", 4, 80 60 18 18 , tab 1
  550. n541=  icon 5 , 60 55 20 20, UpArrowUp.ico ,tab 2
  551. n542=
  552. n543=}
  553.